home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getscr1r / clswinsi.cls < prev    next >
Text File  |  1999-09-06  |  1KB  |  41 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsWinSize"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  17. Option Explicit
  18.  
  19. ' Name:     Windows Information Viewer
  20. ' Author:   Chong Long Choo
  21. ' Date:     06 September 1999
  22.  
  23. Private mvarHoriz_Pixels As Long
  24. Private mvarVert_Pixels As Long
  25.  
  26. Public Property Let Vert_Pixels(ByVal vData As Long)
  27.     mvarVert_Pixels = vData
  28. End Property
  29.  
  30. Public Property Get Vert_Pixels() As Long
  31.     Vert_Pixels = mvarVert_Pixels
  32. End Property
  33.  
  34. Public Property Let Horiz_Pixels(ByVal vData As Long)
  35.     mvarHoriz_Pixels = vData
  36. End Property
  37.  
  38. Public Property Get Horiz_Pixels() As Long
  39.     Horiz_Pixels = mvarHoriz_Pixels
  40. End Property
  41.